home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 66 / 066.d81 / budget manual (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  86 lines
  1. 10 a$="":dima$(790):gosub100:hd$="":print"[147][159]"
  2. 20 rv=0:bx=0:ex=40:by=0:bd=19:bc=7:gosub130:gosub450:poke53281,0:poke53280,0
  3. 30 bx=1:ex=39:by=21:bd=1:bc=3:gosub130
  4. 40 ln$="                                      ":x$=chr$(13):cu=3:n=197
  5. 50 ms$="loading routines...":gosub190
  6. 60 sys57812"budget manual.o",8,0:poke780,0:poke781,60:poke782,3:sys65493
  7. 70 fi$="t.budget docs"
  8. 80 goto210
  9. 90 rem*******generate variables**********
  10. 100 ba$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  11. 110 a$="[221][157][221][157][221][157][221][157][221][157][221][157][221][157]":fori=1to6:bd$=bd$+a$:next:return
  12. 120 rem*********print box*************
  13. 130 oc=peek(646):poke646,bc:rv$="":ifrvthenrv$=""
  14. 140 poke211,bx:poke214,by:sys58732:printrv$"[176]"left$(ba$,ex-bx-2)"[174][157]";
  15. 150 printrv$left$(bd$,bd*3):printrv$spc(bx)"[145][173]"left$(ba$,ex-bx-2)"[189]"
  16. 160 poke211,bx:poke214,by+1:sys58732:printrv$left$(bd$,bd*3)"":poke646,oc
  17. 170 rv=0:return
  18. 180 rem****print message****
  19. 190 gosub200:print"[158]"left$(hd$,23)spc(20-len(ms$)/2)ms$"[159]":return
  20. 200 printleft$(hd$,23)""left$(ln$,36):return
  21. 210 h=-1:ms$="[204][207][193][196][201][206][199] [212][197][216][212]...":gosub190:l=1:open2,8,2,fi$+",p,r":get#2,a$,a$
  22. 220 iflthensys828,2,40:h=h+1:i=st:ifa$=""thena$=" "
  23. 230 a$(h)=a$:ifh=19thengosub360
  24. 240 a$(h)=a$:ifh=39thenms$="[217]ou can page now. (still loading)":gosub190
  25. 250 ifpeek(n)=64andst=0then220
  26. 260 ifpeek(n)=7thenifpeek(653)=0thengosub470
  27. 270 ifpeek(n)=41thenifl=0thengosub530
  28. 280 ifpeek(n)=20thengosub790:gosub380
  29. 290 ifpeek(n)=62thengosub650
  30. 300 ifpeek(n)=51thenpa=0:gosub370
  31. 310 ifpeek(n)=12thenifpeek(653)=4thenpa=19*int(h/19):gosub500
  32. 320 ifpeek(n)=7thenifpeek(653)=1thengosub500
  33. 330 iflthenifst=0thengoto220
  34. 340 iflthenclose2:gosub720:gosub700:l=0
  35. 350 goto260
  36. 360 rem**display text***
  37. 370 ford=0to10:poke214,d:print:print""ln$:poke214,18-d:print:print""ln$:next
  38. 380 poke646,cu:poke214,9:print:print""a$(10+pa):ford=1to9:poke214,9-d:print
  39. 390 print""a$(10-d+pa):poke214,9+d:print:print""a$(10+d+pa):next
  40. 400 printhd$ln$hd$spc(14+l*3)"[155][208]age[158]"int(1+pa/19);
  41. 410 ifl=0thenprint"[155]of[158]"lp"[159]"
  42. 420 iflthenprint"[159]"
  43. 430 return
  44. 440 remclear line links
  45. 450 fori=217to242:pokei,peek(i)or128:next:return
  46. 460 rem page
  47. 470 ifh<pa+38theniflthenreturn
  48. 475 ifint(1+pa/19)=lpthenreturn
  49. 480 ifh<pa+19thenreturn
  50. 490 pa=pa+19:gosub360:return
  51. 500 ifpa-19<0thenreturn
  52. 510 pa=pa-19:gosub360:return
  53. 520 rem***print***
  54. 530 close15:close4:open15,4,8:close15:ifstthenpoke53281,1:poke53281,0:return
  55. 540 ms$="[211]ingle sheet or [212]ractor? ([211]/[212]/^)":gosub190
  56. 550 geta$:ifa$<>"s"anda$<>"t"anda$<>"^"then550
  57. 560 ifa$="^"thengosub700:return
  58. 570 t=1:ifa$="s"thent=0
  59. 580 ms$="[211]et top of form/[159][210]eturn/[158]^":gosub190:poke198,0:wait198,1:geta$
  60. 584 ifa$="^"then560
  61. 585 gosub640
  62. 586 forii=1984to2023:pokeii,32:next
  63. 590 open4,4,7:ii=0:print#4,x$x$x$x$:fori=1toh
  64. 600 print#4,a$(i)spc(40-len(a$(i)))a$(i+55):ii=ii+1:ifii<55then630
  65. 610 ii=0:print#4,x$x$x$x$x$x$x$x$x$x$:i=i+55:iftthen630
  66. 620 ms$="[206]ext sheet/[159][210][197][212][213][210][206]/[158]^":gosub190:poke198,0:wait198,1:geta$
  67. 625 ifa$="^"theni=1000:next:close4:goto560
  68. 630 gosub640:next:gosub400:gosub700:return
  69. 640 ms$="[208]rinting...":gosub190:return
  70. 650 ms$="[209]uit?  [193]re you sure?  ([217]/[206])":gosub190:poke198,0
  71. 660 geta$:ifa$<>"y"anda$<>"n"then660
  72. 670 ifa$<>"y"thengosub200:gosub700:return
  73. 680 goto740
  74. 690 rem*** menu ****
  75. 700 printleft$(hd$,23)""left$(ln$,36)"[145]"
  76. 710 print"[158][195][210][211][210]-[213][208]/[196][206][146][159] to page  [158][209][146][159] [209]uit [158][208][146][159] [208]rint":return
  77. 720 lp=h/19:iflp>int(lp)thenlp=int(lp)+1:return
  78. 730 return
  79. 740 open15,8,15,"r0:budget boot=budget boot":input#15,er:close15
  80. 750 if er<>63 then print"[147]":end
  81. 760 a$="budget boot":q$=chr$(34):print"[147]"
  82. 770 print"[144]load"q$a$q$",8"
  83. 780 print"run":poke631,13:poke632,13:poke198,2:end
  84. 790 cu=cu+1:ifcu=16thencu=1
  85. 800 poke646,cu:return
  86.